%% Author: kevin.jingqiu
%% Created: May 29, 2009
%% Description: TODO: Add description to p4
-module(p4).

%%
%% Include files
%%

%%
%% Exported Functions
%%
-export([solve/0]).

%%
%% API Functions
%%
solve() ->
	[H|_] = (lists:reverse(lists:sort(lists:filter(fun(X)->mylib:is_palindrome(integer_to_list(X)) end,[ X*Y || X<-lists:seq(100,1000), Y<-lists:seq(100,1000) ])))),
	H.

%%
%% Local Functions
%%

